"milk" <-
structure(list(four = c(7.2, 7.4, 7, 7.2, 4.6, 6, 5, 4.2, 3.8, 
6.1, 3.7, 3.9, 2.5, 4.4, 4.2, 4.6, 5.6), one = c(5.8, 6.9, 6, 
6, 5.4, 5.7, 6.1, 3.7, 3.8, 4.3, 3.4, 1.4, 1.7, 5.4, 3.2, 2.2, 
3.6)), .Names = c("four", "one"), row.names = c("1", "2", "3", 
"4", "5", "6", "7", "8", "9", "10", "11", "12", "13", "14", "15", 
"16", "17"), class = "data.frame")
